home *** CD-ROM | disk | FTP | other *** search
/ Overshadow 6 / Overshadow_06_1997-08_Angels.d64 / w.borders _os6 < prev    next >
Text File  |  2023-02-26  |  3KB  |  184 lines
  1.  
  2.          *= 2061
  3.  
  4. r        = $48
  5.  
  6. d        = $d016
  7.  
  8.          jmp start
  9.  
  10. ;---------------------------------------
  11.  
  12. ic       sei
  13.          jsr $fd15
  14.          jsr $fda3
  15.          jsr $e518
  16.          cli
  17.          rts
  18.  
  19. id       sta $0314
  20.          stx $0315
  21.          sty $d012
  22.          rts
  23. ie       inc $d019
  24.          sei
  25.          jsr id
  26.          cli
  27.          jmp $ea81
  28.  
  29. timer    nop
  30.          nop
  31.          ldx #$ff
  32.          ldy #0
  33.          stx $dc00
  34.          sty $dc02
  35.          stx $dc03
  36.          stx $dc01
  37.          sty $dc01
  38.          stx $dc01
  39.          .byte $ea,$ea,$ea,$ea,$ea
  40.          lda $d013
  41.          stx $dc02
  42.          sty $dc03
  43.          stx $dc01
  44.          ldx #$7f
  45.          stx $dc00
  46.          lsr a
  47.          lsr a
  48.          lsr a
  49.          sta tm1+1
  50.          bcc tm1-1
  51.          clv
  52. tm1      bvc tm2
  53. tm2      .byte $ea,$ea,$ea,$ea,$ea
  54.          .byte $ea,$ea,$ea,$ea,$ea
  55.          .byte $ea,$ea,$ea,$ea,$ea
  56.          .byte $ea,$ea,$ea,$ea,$ea
  57.          .byte $ea,$ea,$ea,$ea,$ea
  58.          .byte $ea,$ea,$ea,$ea,$ea
  59.          .byte $ea,$ea
  60.          rts
  61.  
  62. ;---------------------------------------
  63.  
  64. start    jsr ic
  65.  
  66.          ldx #0
  67.          stx 2043
  68.          inx
  69.          stx 2044
  70.          inx
  71.          stx 2045
  72.          inx
  73.          stx 2046
  74.          lda #$f0
  75.          sta $d006
  76.          lda #$08
  77.          sta $d008
  78.          lda #$50
  79.          sta $d00a
  80.          lda #$68
  81.          sta $d00c
  82.          lda #$49
  83.          sta $d007
  84.          sta $d009
  85.          sta $d00b
  86.          sta $d00d
  87.          lda #%01101000
  88.          sta $d010
  89.          lda #1
  90.          sta $d02a
  91.          sta $d02b
  92.          sta $d02c
  93.          sta $d02d
  94.          lda #%01111000
  95.          sta $d015
  96.  
  97.          sei
  98.          ldx #0
  99.          stx $dc0e
  100.          inx
  101.          stx $d01a
  102.          lda #<i1
  103.          ldx #>i1
  104.          ldy #r
  105.          jsr id
  106.          lda #$1b
  107.          sta $d011
  108.          cli
  109.          jmp out
  110.  
  111. ;---------------------------------------
  112. ;---------------------------------------
  113.  
  114. i1       .byte $ea,$ea,$ea,$ea,$ea
  115.          .byte $ea,$ea,$ea,$ea,$ea
  116.          .byte $ea,$ea,$ea,$ea,$ea
  117.          .byte $ea
  118.          lda #0
  119.          ldx #8
  120.          tay
  121.          jsr e0
  122.          jsr e2
  123.          jsr e1
  124.          jsr e1
  125.          jsr e1
  126.          jsr e1
  127.          jsr e1
  128.          jsr e1
  129.          jsr e2
  130.          jmp i1o
  131.  
  132. e0       .byte $ea,$ea,$ea,$ea,$ea
  133.          .byte $ea,$ea,$ea,$ea,$ea
  134.          .byte $ea,$ea,$ea,$ea,$ea,$ea
  135.          bit d
  136.          bit d
  137.          rts
  138.  
  139. e1       .byte $ea,$ea,$ea,$ea,$ea
  140.          .byte $ea,$ea,$ea,$ea,$ea
  141.          .byte $ea,$ea,$ea,$ea,$ea,$ea
  142.          sta d
  143.          stx d
  144.          rts
  145.  
  146. e2       .byte $ea,$ea,$ea,$ea,$ea
  147.          .byte $ea,$ea,$ea,$ea,$ea
  148.          .byte $ea,$ea,$ea,$ea,$ea,$ea
  149.          sta d
  150.          stx d
  151.          sta d,y
  152.          stx d
  153.          rts
  154.  
  155. i1o      lda #<i2
  156.          ldx #>i2
  157.          ldy #$fa
  158.          jmp ie
  159.  
  160. ;---------------------------------------
  161.  
  162. i2       lda #$13
  163.          sta $d011
  164.          lda #<i3
  165.          ldx #>i3
  166.          ldy #$32
  167.          jmp ie
  168.  
  169. ;---------------------------------------
  170.  
  171. i3       lda #$1b
  172.          sta $d011
  173.          jsr timer
  174.          lda #<i1
  175.          ldx #>i1
  176.          ldy #r
  177.          jmp ie
  178.  
  179. ;---------------------------------------
  180. ;---------------------------------------
  181.  
  182. out      jmp out
  183.  
  184.